home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nojet / search.frm < prev    next >
Text File  |  1995-02-16  |  4KB  |  126 lines
  1. VERSION 2.00
  2. Begin Form frmSearch 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H8000000F&
  5.    BorderStyle     =   3  'Fixed Double
  6.    Caption         =   "Find"
  7.    ClientHeight    =   1365
  8.    ClientLeft      =   2115
  9.    ClientTop       =   3480
  10.    ClientWidth     =   5010
  11.    ClipControls    =   0   'False
  12.    Height          =   1800
  13.    Left            =   2040
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   1365
  17.    ScaleWidth      =   5010
  18.    Top             =   3120
  19.    Width           =   5160
  20.    Begin CommandButton cmdButton 
  21.       Caption         =   "Cancel"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   375
  29.       Index           =   1
  30.       Left            =   3420
  31.       TabIndex        =   3
  32.       Top             =   630
  33.       Width           =   1335
  34.    End
  35.    Begin CommandButton cmdButton 
  36.       Caption         =   "OK"
  37.       Default         =   -1  'True
  38.       FontBold        =   0   'False
  39.       FontItalic      =   0   'False
  40.       FontName        =   "MS Sans Serif"
  41.       FontSize        =   8.25
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       Height          =   375
  45.       Index           =   0
  46.       Left            =   3420
  47.       TabIndex        =   2
  48.       Top             =   180
  49.       Width           =   1335
  50.    End
  51.    Begin TextBox txtCustData 
  52.       FontBold        =   0   'False
  53.       FontItalic      =   0   'False
  54.       FontName        =   "MS Sans Serif"
  55.       FontSize        =   8.25
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   300
  59.       Index           =   0
  60.       Left            =   240
  61.       MaxLength       =   30
  62.       TabIndex        =   0
  63.       Top             =   405
  64.       Width           =   1605
  65.    End
  66.    Begin TextBox txtCustData 
  67.       FontBold        =   0   'False
  68.       FontItalic      =   0   'False
  69.       FontName        =   "MS Sans Serif"
  70.       FontSize        =   8.25
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       Height          =   300
  74.       Index           =   1
  75.       Left            =   1935
  76.       MaxLength       =   20
  77.       TabIndex        =   1
  78.       Top             =   405
  79.       Width           =   1125
  80.    End
  81.    Begin Label lblCustData 
  82.       AutoSize        =   -1  'True
  83.       BackColor       =   &H8000000F&
  84.       Caption         =   "Last Name:"
  85.       FontBold        =   0   'False
  86.       FontItalic      =   0   'False
  87.       FontName        =   "MS Sans Serif"
  88.       FontSize        =   8.25
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       Height          =   195
  92.       Index           =   0
  93.       Left            =   240
  94.       TabIndex        =   5
  95.       Top             =   180
  96.       Width           =   810
  97.    End
  98.    Begin Label lblCustData 
  99.       AutoSize        =   -1  'True
  100.       BackColor       =   &H8000000F&
  101.       Caption         =   "First Name:"
  102.       FontBold        =   0   'False
  103.       FontItalic      =   0   'False
  104.       FontName        =   "MS Sans Serif"
  105.       FontSize        =   8.25
  106.       FontStrikethru  =   0   'False
  107.       FontUnderline   =   0   'False
  108.       Height          =   195
  109.       Index           =   1
  110.       Left            =   1935
  111.       TabIndex        =   4
  112.       Top             =   180
  113.       Width           =   795
  114.    End
  115. End
  116. DefInt A-Z
  117. Option Explicit
  118.  
  119. Sub cmdButton_Click (Index As Integer)
  120.  
  121.     Me.Tag = LTrim$(Str$(Index))
  122.     Me.Hide
  123.  
  124. End Sub
  125.  
  126.